home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus 1999 #2
/
Amiga Plus CD - 1999 - No. 2.iso
/
System-Boost
/
Grafik
/
AmiCAD
/
ARexx_english
/
Lupe.AmiCAD
< prev
next >
Wrap
Text File
|
1998-06-17
|
480b
|
24 lines
/* Lupe.AmiCAD, Chez Corbin, 18 Janvier 1998, version 1.00e */
port=address()
address command
'run' "c:Lupe F R GS JAS"
do i=1 to 2000
i=i+1
end
address(port)
'STOFRONT'
exit
/* Traitement des erreurs, interruption du programme */
syntax:
address (port)
erreur=RC
'MESSAGE("Script Lupe.AmiCAD :"+CHR(10)+"Syntax error"+CHR(10)+"in line 'SIGL'"+CHR(10)+"'errortext(erreur)'")'
exit
error:
address (port)
'MESSAGE("Script Lupe.AmiCAD :"+CHR(10)+"Error in line 'SIGL'")'
exit